program test3(input,output);
var
    a : integer;
    i : integer;

begin
    i := 10;
    a := 0;
    while i > 0 do
        begin
            i := i - 1;
            a := a + 1;
        end;
    //writeln(a) 输出 10
end.
            